/*teste!*/
program exemplo;
	const
		numero = 2;
		num = 'q';
	type
		z = integer;
		ptr = ^real;
		rec = record
			x : z;
			k : ptr;
			s : string;
		end;
		arranjo = array [1..10] of rec;
		multarr = array [1..10] of array [5..8] of char;

	procedure foo ;
		const z = 2;
		var q : boolean;
	begin
		for z := 0 to 10 do
		begin
			q := q
		end;

		while x < 10 do
			x := x + 1;

		while x < 10 && x > 100 do
		begin
			writeln(x);
			x := x + 1;
		end;
	end

	function bar (a : integer) : integer;
	begin
		bar := a * 10;
	end

	function barlol (a : integer; b : real) : integer;
	begin
		b := b / 2.0;
		b := b / pi;
		barlol := a * 10;

		if z > 10 && !(z < 5) then
			writeln(x);

		if z > 10 && !(z < 5) then
			writeln(x)
		else
			x := x + bar(2 * bar(x))

	
	end;

	aspect
		foo
		begin
			writeln("teste");
		end;
		foolol
		begin
			writeln(x + x);
		end;
		before bar : foo;
		after foolol : zeta;
begin
	for z := 0 to 10 do
	begin
		q := q
	end;

	while x < 10 do
		x := x + 1;

	while x < 10 && x > 100 do
	begin
		writeln(x);
		x := x + 1;
	end;

	if z > 10 && !(z < 5) then
		writeln(x);

	if z > 10 && !(z < 5) then
		begin
			writeln(x);
			x := 2 + 3;
		end
	else
		begin
			x := x + bar(2 * bar(x))
		end;
qwer
	writeln("fim do programa");

end @@ .
